#!/usr/bin/perl -w

use strict;
my ($fr,$fw) = @ARGV;

open(FR,"<:utf8",$fr) || die("Cannot open file");
open FW,">:utf8",$fw;
while(<FR>)
{
	print FW lc($_);
}
close FR;
close FW;

